home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / ML0206.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  4.1 KB  |  33 lines
  1. NOTE ML0206 - UPDATE MAIL LIST DATA BASE SELECTED RECORDS FOR USER SPECIFIED CODE    8/30/84
  2. @ 17,10 SAY 'Update Selected Mail List Data Records with Select Code'
  3. SELECT SECONDARY
  4. USE &FDEV INDEX &FDEV
  5. STORE TRIM(CV)    TO CV
  6. STORE LEN(CODES)-LEN(CV)    TO M
  7. STORE CV+','    TO CV
  8. SELECT PRIMARY
  9. USE MLSUB2
  10. GOTO TOP
  11.  
  12. DO WHILE .NOT. EOF
  13. STORE STR(RECID,4)    TO KEY
  14. SELECT SECONDARY
  15. FIND &KEY
  16. IF #>0
  17.     STORE LEN( TRIM(CODES))    TO L
  18.     IF L<M
  19.         IF L=2 .OR. CODES=',*NEW*, '
  20.             REPLACE CODES    WITH ','+CV
  21.         ELSE
  22.             REPLACE CODES    WITH TRIM(CODES)+CV
  23.             ENDIF
  24.         ENDIF
  25.     ENDIF
  26. SELECT PRIMARY
  27. SKIP
  28. ENDDO
  29.  
  30. @ 17,0
  31. RELEASE KEY,L,M
  32. RETURN
  33. σσσσσσσσσσσσ